Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/4-Demos/Apple Demos/Tutorials/Macintosh SE⁄30 Training/Apple Macintosh SE⁄30/Apple Macintosh SE_30/stack_-1.xml

Extensible Markup Language | 1990-03-19 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>239</cardCount>
    <cardID>9977</cardID>
    <listID>129741</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>--————————————————————————————————————————————————————————————————————--  Stack created for Apple Computer, Inc.--  Copyright © 1988 by Apple Computer, Inc.--  HyperCard construction — Chuck Walker.--  PopUpMenu XFCN by Andrew Gilmartin, Brown University--————————————————————————————————————————————————————————————————————--  Begin Stack Script  ——————————————————————————————————————————————--————————————————————————————————————————————————————————————————————on openStackif the version < 1.2 thenanswer "This stack requires HyperCard version 1.2." with¬"Continue" or "Home"if it is "Home" then domenu homeend ifput item 2 of the screenRect into screenTopif top of card window < screenTop + 20 then hide menuBarhide tool windowhide pattern windowhide msgresetMapend openStack--————————————————————————————————————————————————————————————————————on closeStackanswer "Do you want to save your place?" with "Yes" or "No"if it is "No" then put empty into field "footprints" of card "Map"pass closeStackend closeStack--————————————————————————————————————————————————————————————————————--  intercept keyboard handlers:  ————————————————————————————————————--————————————————————————————————————————————————————————————————————--  same as clicking the arrow buttons  ——————————————————————————————on arrowKey whatKeyif whatKey = "Left" then click at 442,328if whatKey = "Right" then click at 469,328end arrowKey--  same as clicking the return button  ——————————————————————————————on returnKeyclick at 498,328end returnKey--  intercept enter key  —————————————————————————————————————————————on enterKeyend enterKey--————————————————————————————————————————————————————————————————————--  offer help to the lost  ——————————————————————————————————————————on mouseUpglobal clickTimeif the ticks - clickTime < 50 then exit mouseUpanswer "Click one of the Arrow buttons." with "Help" or "OK"if it is "Help" thenpush cardvisual dissolvego card "howToUse"else exit mouseUpend mouseUp--————————————————————————————————————————————————————————————————————-- disable ce